home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…rary 5 (Internal Edition) / Apple R&P Lib Internal v5.0.iso / 6-Developer Demos / Developer Demos-Ed. / Macintosh School® CD-ROM Demo / Macintosh SchoolÆ CD-ROM Demo / card_20108.txt < prev    next >
Text File  |  1990-08-14  |  13KB  |  530 lines
  1. -- card: 20108 from stack: in
  2. -- bmap block id: 20927
  3. -- flags: 4000
  4. -- background id: 20347
  5. -- name: SD Personal
  6. ----- HyperTalk script -----
  7. on openCard
  8.   if card field "Birthday" is empty then
  9.     lock screen
  10.     put (item 2 of the abbrev date & ", " & char 4 to 5 of item 3 of the abbrev date) into card field "Birthday"
  11.     put empty into first char of card field "Birthday"
  12.     unlock screen
  13.   end if
  14.   tabKey
  15. end openCard
  16.  
  17.  
  18. -- part 1 (field)
  19. -- low flags: 00
  20. -- high flags: 0000
  21. -- rect: left=108 top=80 right=95 bottom=242
  22. -- title width / last selected line: 0
  23. -- icon id / first selected line: 0 / 0
  24. -- text alignment: 0
  25. -- font id: 3
  26. -- text size: 10
  27. -- style flags: 0
  28. -- line height: 13
  29. -- part name: Student Number
  30.  
  31.  
  32. -- part 2 (field)
  33. -- low flags: 00
  34. -- high flags: 0000
  35. -- rect: left=108 top=95 right=110 bottom=242
  36. -- title width / last selected line: 0
  37. -- icon id / first selected line: 0 / 0
  38. -- text alignment: 0
  39. -- font id: 3
  40. -- text size: 10
  41. -- style flags: 0
  42. -- line height: 13
  43. -- part name: Surname
  44. ----- HyperTalk script -----
  45. on closeField
  46.   if ((card field "Surname" is not empty) OR (card field "First Name" is not empty) OR (card field "Middle Name" is not empty)) then
  47.     put card field "Surname" & ", " & card field "First Name" & " " & card field "Middle Name" into field "Name"
  48.   else put empty into field "Name"
  49. end closeField
  50.  
  51.  
  52. -- part 3 (field)
  53. -- low flags: 00
  54. -- high flags: 0000
  55. -- rect: left=108 top=110 right=125 bottom=242
  56. -- title width / last selected line: 0
  57. -- icon id / first selected line: 0 / 0
  58. -- text alignment: 0
  59. -- font id: 3
  60. -- text size: 10
  61. -- style flags: 0
  62. -- line height: 13
  63. -- part name: First Name
  64. ----- HyperTalk script -----
  65. on closeField
  66.   if ((card field "Surname" is not empty) OR (card field "First Name" is not empty) OR (card field "Middle Name" is not empty)) then
  67.     put card field "Surname" & ", " & card field "First Name" & " " & card field "Middle Name" into field "Name"
  68.   else put empty into field "Name"
  69. end closeField
  70.  
  71.  
  72. -- part 4 (field)
  73. -- low flags: 00
  74. -- high flags: 0000
  75. -- rect: left=108 top=125 right=140 bottom=242
  76. -- title width / last selected line: 0
  77. -- icon id / first selected line: 0 / 0
  78. -- text alignment: 0
  79. -- font id: 3
  80. -- text size: 10
  81. -- style flags: 0
  82. -- line height: 13
  83. -- part name: Middle Name
  84. ----- HyperTalk script -----
  85. on closeField
  86.   if ((card field "Surname" is not empty) OR (card field "First Name" is not empty) OR (card field "Middle Name" is not empty)) then
  87.     put card field "Surname" & ", " & card field "First Name" & " " & card field "Middle Name" into field "Name"
  88.   else put empty into field "Name"
  89. end closeField
  90.  
  91.  
  92. -- part 5 (field)
  93. -- low flags: 00
  94. -- high flags: 0000
  95. -- rect: left=108 top=140 right=155 bottom=242
  96. -- title width / last selected line: 0
  97. -- icon id / first selected line: 0 / 0
  98. -- text alignment: 0
  99. -- font id: 3
  100. -- text size: 10
  101. -- style flags: 0
  102. -- line height: 13
  103. -- part name: Street
  104.  
  105.  
  106. -- part 6 (field)
  107. -- low flags: 00
  108. -- high flags: 0000
  109. -- rect: left=108 top=155 right=170 bottom=242
  110. -- title width / last selected line: 0
  111. -- icon id / first selected line: 0 / 0
  112. -- text alignment: 0
  113. -- font id: 3
  114. -- text size: 10
  115. -- style flags: 0
  116. -- line height: 13
  117. -- part name: House Number
  118.  
  119.  
  120. -- part 7 (field)
  121. -- low flags: 00
  122. -- high flags: 0000
  123. -- rect: left=108 top=170 right=185 bottom=242
  124. -- title width / last selected line: 0
  125. -- icon id / first selected line: 0 / 0
  126. -- text alignment: 0
  127. -- font id: 3
  128. -- text size: 10
  129. -- style flags: 0
  130. -- line height: 13
  131. -- part name: Apt #
  132.  
  133.  
  134. -- part 8 (field)
  135. -- low flags: 00
  136. -- high flags: 0000
  137. -- rect: left=108 top=185 right=200 bottom=242
  138. -- title width / last selected line: 0
  139. -- icon id / first selected line: 0 / 0
  140. -- text alignment: 0
  141. -- font id: 3
  142. -- text size: 10
  143. -- style flags: 0
  144. -- line height: 13
  145. -- part name: City
  146.  
  147.  
  148. -- part 9 (field)
  149. -- low flags: 00
  150. -- high flags: 0000
  151. -- rect: left=108 top=200 right=215 bottom=242
  152. -- title width / last selected line: 0
  153. -- icon id / first selected line: 0 / 0
  154. -- text alignment: 0
  155. -- font id: 3
  156. -- text size: 10
  157. -- style flags: 0
  158. -- line height: 13
  159. -- part name: State
  160.  
  161.  
  162. -- part 10 (field)
  163. -- low flags: 00
  164. -- high flags: 0000
  165. -- rect: left=108 top=215 right=230 bottom=242
  166. -- title width / last selected line: 0
  167. -- icon id / first selected line: 0 / 0
  168. -- text alignment: 0
  169. -- font id: 3
  170. -- text size: 10
  171. -- style flags: 0
  172. -- line height: 13
  173. -- part name: Zip
  174.  
  175.  
  176. -- part 14 (field)
  177. -- low flags: 00
  178. -- high flags: 0000
  179. -- rect: left=108 top=230 right=245 bottom=242
  180. -- title width / last selected line: 0
  181. -- icon id / first selected line: 0 / 0
  182. -- text alignment: 0
  183. -- font id: 3
  184. -- text size: 10
  185. -- style flags: 0
  186. -- line height: 13
  187. -- part name: Phone Number
  188.  
  189.  
  190. -- part 11 (field)
  191. -- low flags: 01
  192. -- high flags: 0000
  193. -- rect: left=353 top=80 right=95 bottom=487
  194. -- title width / last selected line: 0
  195. -- icon id / first selected line: 0 / 0
  196. -- text alignment: 0
  197. -- font id: 3
  198. -- text size: 10
  199. -- style flags: 0
  200. -- line height: 13
  201. -- part name: Grade
  202. ----- HyperTalk script -----
  203. on closeField
  204.   put card field "Grade"  into field "Grade"
  205. end closeField
  206.  
  207.  
  208. -- part 12 (field)
  209. -- low flags: 01
  210. -- high flags: 0000
  211. -- rect: left=353 top=95 right=110 bottom=487
  212. -- title width / last selected line: 0
  213. -- icon id / first selected line: 0 / 0
  214. -- text alignment: 0
  215. -- font id: 3
  216. -- text size: 10
  217. -- style flags: 0
  218. -- line height: 13
  219. -- part name: Homeroom
  220. ----- HyperTalk script -----
  221. on closeField
  222.   put card field "Homeroom"  into field "Homeroom"
  223. end closeField
  224.  
  225.  
  226. -- part 13 (field)
  227. -- low flags: 00
  228. -- high flags: 0000
  229. -- rect: left=353 top=110 right=125 bottom=487
  230. -- title width / last selected line: 0
  231. -- icon id / first selected line: 0 / 0
  232. -- text alignment: 0
  233. -- font id: 3
  234. -- text size: 10
  235. -- style flags: 0
  236. -- line height: 13
  237. -- part name: Area
  238.  
  239.  
  240. -- part 27 (field)
  241. -- low flags: 01
  242. -- high flags: 0000
  243. -- rect: left=92 top=111 right=123 bottom=104
  244. -- title width / last selected line: 0
  245. -- icon id / first selected line: 0 / 0
  246. -- text alignment: 0
  247. -- font id: 3
  248. -- text size: 9
  249. -- style flags: 0
  250. -- line height: 12
  251. -- part name: First
  252.  
  253.  
  254. -- part 15 (button)
  255. -- low flags: 00
  256. -- high flags: 0000
  257. -- rect: left=89 top=110 right=125 bottom=107
  258. -- title width / last selected line: 0
  259. -- icon id / first selected line: 0 / 0
  260. -- text alignment: 1
  261. -- font id: 0
  262. -- text size: 12
  263. -- style flags: 0
  264. -- line height: 16
  265. -- part name: First
  266. ----- HyperTalk script -----
  267. on mouseUp
  268.   put empty into card field "Middle"
  269.   put "P" into card field "First"
  270.   if ((card field "Surname" is not empty) OR (card field "First Name" is not empty) OR (card field "Middle Name" is not empty)) then
  271.     put card field "Surname" & ", " & card field "First Name" & " " & card field "Middle Name" into field "Name"
  272.   else put empty into field "Name"
  273. end mouseUp
  274.  
  275.  
  276.  
  277. -- part 28 (field)
  278. -- low flags: 01
  279. -- high flags: 0000
  280. -- rect: left=92 top=126 right=138 bottom=104
  281. -- title width / last selected line: 0
  282. -- icon id / first selected line: 0 / 0
  283. -- text alignment: 0
  284. -- font id: 3
  285. -- text size: 9
  286. -- style flags: 0
  287. -- line height: 12
  288. -- part name: Middle
  289.  
  290.  
  291. -- part 16 (button)
  292. -- low flags: 00
  293. -- high flags: 0000
  294. -- rect: left=89 top=125 right=140 bottom=107
  295. -- title width / last selected line: 0
  296. -- icon id / first selected line: 0 / 0
  297. -- text alignment: 1
  298. -- font id: 0
  299. -- text size: 12
  300. -- style flags: 0
  301. -- line height: 16
  302. -- part name: Middle
  303. ----- HyperTalk script -----
  304. on mouseUp
  305.   put empty into card field "First"
  306.   put "P" into card field "Middle"
  307.   if ((card field "Surname" is not empty) OR (card field "First Name" is not empty) OR (card field "Middle Name" is not empty)) then
  308.     put card field "Surname" & ", " & card field "Middle Name" & " " & card field "First Name" into field "Name"
  309.   else put empty into field "Name"
  310. end mouseUp
  311.  
  312.  
  313.  
  314. -- part 20 (field)
  315. -- low flags: 00
  316. -- high flags: 0000
  317. -- rect: left=353 top=125 right=140 bottom=487
  318. -- title width / last selected line: 0
  319. -- icon id / first selected line: 0 / 0
  320. -- text alignment: 0
  321. -- font id: 3
  322. -- text size: 10
  323. -- style flags: 0
  324. -- line height: 13
  325. -- part name: Sex
  326.  
  327.  
  328. -- part 18 (button)
  329. -- low flags: 00
  330. -- high flags: 2000
  331. -- rect: left=263 top=95 right=109 bottom=352
  332. -- title width / last selected line: 0
  333. -- icon id / first selected line: 0 / 0
  334. -- text alignment: 1
  335. -- font id: 0
  336. -- text size: 12
  337. -- style flags: 0
  338. -- line height: 16
  339. -- part name: 
  340. ----- HyperTalk script -----
  341. on mouseDown
  342.   global checkLoc2
  343.   get the rect of me
  344.   put item 1 of it + 90 into horz
  345.   put item 2 of it into vert
  346.   put "NA                         ,100,102,103,104," into menuList
  347.   put "105,106,107,108,109,110,111,112,113,114,115" after menuList
  348.   put PopUpMenu(menuList,vert,horz,checkLoc2) into temp
  349.   if temp > 0 then
  350.     put item temp of menuList into card field "Homeroom"
  351.     put item temp of menuList into field "Homeroom"
  352.     put temp into checkLoc2
  353.   end if
  354. end mouseDown
  355.  
  356.  
  357.  
  358. -- part 19 (field)
  359. -- low flags: 00
  360. -- high flags: 0000
  361. -- rect: left=353 top=140 right=155 bottom=487
  362. -- title width / last selected line: 0
  363. -- icon id / first selected line: 0 / 0
  364. -- text alignment: 0
  365. -- font id: 3
  366. -- text size: 10
  367. -- style flags: 0
  368. -- line height: 13
  369. -- part name: SIN
  370. ----- HyperTalk script -----
  371. on mouseDown
  372.   pass mouseDown
  373. end mouseDown
  374.  
  375.  
  376. -- part 17 (button)
  377. -- low flags: 00
  378. -- high flags: 2000
  379. -- rect: left=263 top=80 right=94 bottom=352
  380. -- title width / last selected line: 0
  381. -- icon id / first selected line: 0 / 0
  382. -- text alignment: 1
  383. -- font id: 0
  384. -- text size: 12
  385. -- style flags: 0
  386. -- line height: 16
  387. -- part name: 
  388. ----- HyperTalk script -----
  389. on mouseDown
  390.   global checkLoc1
  391.   get the rect of me
  392.   put item 1 of it + 90 into horz
  393.   put item 2 of it into vert
  394.   put "(K                           ," into menuList
  395.   put "(1,(2,(3,(4,(5,(6,(7,(8,(9,(10," after menuList
  396.   put "11,12,(13" after menuList
  397.   put PopUpMenu(menuList,vert,horz,checkLoc1) into temp
  398.   if temp > 0 then
  399.     put item temp of menuList into card field "Grade"
  400.     put item temp of menuList into field "Grade"
  401.     put temp into checkLoc1
  402.   end if
  403. end mouseDown
  404.  
  405.  
  406. -- part 21 (field)
  407. -- low flags: 00
  408. -- high flags: 0000
  409. -- rect: left=353 top=155 right=170 bottom=487
  410. -- title width / last selected line: 0
  411. -- icon id / first selected line: 0 / 0
  412. -- text alignment: 0
  413. -- font id: 3
  414. -- text size: 10
  415. -- style flags: 0
  416. -- line height: 13
  417. -- part name: Birthday
  418. ----- HyperTalk script -----
  419. on mouseDown
  420.   pass mouseDown
  421. end mouseDown
  422.  
  423.  
  424. -- part 22 (field)
  425. -- low flags: 00
  426. -- high flags: 0000
  427. -- rect: left=353 top=170 right=185 bottom=487
  428. -- title width / last selected line: 0
  429. -- icon id / first selected line: 0 / 0
  430. -- text alignment: 0
  431. -- font id: 3
  432. -- text size: 10
  433. -- style flags: 0
  434. -- line height: 13
  435. -- part name: Graduating Year
  436. ----- HyperTalk script -----
  437. on mouseDown
  438.   pass mouseDown
  439. end mouseDown
  440.  
  441.  
  442. -- part 23 (field)
  443. -- low flags: 00
  444. -- high flags: 0000
  445. -- rect: left=353 top=185 right=200 bottom=487
  446. -- title width / last selected line: 0
  447. -- icon id / first selected line: 0 / 0
  448. -- text alignment: 0
  449. -- font id: 3
  450. -- text size: 10
  451. -- style flags: 0
  452. -- line height: 13
  453. -- part name: Birthplace
  454. ----- HyperTalk script -----
  455. on mouseDown
  456.   pass mouseDown
  457. end mouseDown
  458.  
  459.  
  460. -- part 24 (field)
  461. -- low flags: 00
  462. -- high flags: 0000
  463. -- rect: left=353 top=200 right=215 bottom=487
  464. -- title width / last selected line: 0
  465. -- icon id / first selected line: 0 / 0
  466. -- text alignment: 0
  467. -- font id: 3
  468. -- text size: 10
  469. -- style flags: 0
  470. -- line height: 13
  471. -- part name: Enrollment Date
  472. ----- HyperTalk script -----
  473. on mouseDown
  474.   pass mouseDown
  475. end mouseDown
  476.  
  477.  
  478. -- part 25 (field)
  479. -- low flags: 00
  480. -- high flags: 0000
  481. -- rect: left=353 top=215 right=230 bottom=487
  482. -- title width / last selected line: 0
  483. -- icon id / first selected line: 0 / 0
  484. -- text alignment: 0
  485. -- font id: 3
  486. -- text size: 10
  487. -- style flags: 0
  488. -- line height: 13
  489. -- part name: Locker Number
  490. ----- HyperTalk script -----
  491. on mouseDown
  492.   pass mouseDown
  493. end mouseDown
  494.  
  495.  
  496. -- part 26 (field)
  497. -- low flags: 00
  498. -- high flags: 0000
  499. -- rect: left=353 top=230 right=245 bottom=487
  500. -- title width / last selected line: 0
  501. -- icon id / first selected line: 0 / 0
  502. -- text alignment: 0
  503. -- font id: 3
  504. -- text size: 10
  505. -- style flags: 0
  506. -- line height: 13
  507. -- part name: Previous School
  508. ----- HyperTalk script -----
  509. on mouseDown
  510.   pass mouseDown
  511. end mouseDown
  512.  
  513.  
  514. -- part 29 (button)
  515. -- low flags: 00
  516. -- high flags: A005
  517. -- rect: left=12 top=314 right=330 bottom=246
  518. -- title width / last selected line: 0
  519. -- icon id / first selected line: 0 / 0
  520. -- text alignment: 1
  521. -- font id: 3
  522. -- text size: 10
  523. -- style flags: 0
  524. -- line height: 13
  525. -- part name: Automatically force first letters uppercase
  526.  
  527.  
  528. -- part contents for card part 27
  529. ----- text -----
  530. P